* lisp/net/shr.el (image-map): Defvar it. (Bug#22614)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 339f877beffa561b6eb816ff13f1bfd7e8fc97fe..b1f2f0794a768ebc6ba481656b6d7c163b876f15 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -189,6 +189,8 @@ and other things:
     (define-key map "\r" 'shr-browse-url)
     map))
 
+(defvar image-map nil)                  ;in case image.el is not pre-loaded
+
 (defvar shr-image-map
   (let ((map (copy-keymap shr-map)))
     (set-keymap-parent map image-map)